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UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER 

LIBRARY ROUTIN E N13 - 226 
By D. B. Gillies 

Input a Sequence of Fractions, All Having the Same Number of 

Decimal Digits. (DOI or SADOl) 

Closed with one program parameter and one pre-set parameter. 

21 

S3« If during input of the subroutine itself, memory location 

3 contains 

00 F 
. 00 | 10 m F 

then m-digit fractions will always be input (for 5D fractions, 

00 F 

00 50 000 F ) 
Correctly rounded (error up to + 2 ) 1 < m < 12. 
Input time (k ms per digit) This routine has an inner loop 
of 667 u sec, which makes it twice as fast, overall, as input 
routines with one or two multiplications in the inner loop » 
This routine should be used only when fixed precision fractions 
are required. Otherwise use N 12. 

To read a sequence of fractions into locations n, n+1, . . . 
enter with Q: 

50 n 

50 q 
Each fraction is punched with a sign (+ or -) followed by m 
decimal digits. A sequence is terminated by one of N,J,F,L. 
When one of these characters is encountered, control is transferred 
to the right hand side of q+1, with A = 0, 2" 59 , 2.2* 59 , 3.2~ 59 
according as the termination was N,J,F,L. The left hand address . 
of 15L relative to the subroutine at this time is n+k, if k 
words have been read in to locations n, n+1, . . ., n+k-1. 
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DAT E . 2/4/57 RT: 5/3/59 
COM) B Y d.bMLyU 
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LOCATION 


ORDER 
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00 K(H13) 
K5 F 








k2 3L 




Plant link and n 


1 


k6 15L 








81 4f 




read sign of first fraction of sequence 


2 


LO 18L 




_.-l + (s-10).2~ 59 




42 l^L 


<-N E 


}set Ik* as or 1 for + or - 


3 


LO 19L 






"if N,J,F,L, A = 0, 1, 2, 3 




32 (link)F 


* 


jr 0'. 


_ so obey link 


k 


27 7L 


\ 




]Enter digit loop with A=0 (so n Q = 0) 


10 3F 




\ 


5 


Fk F 










6 


00 2F 
Fk F 




/ 




n i+l = (d i" 10) + 10 ( 1+n i-l) 


7 


00 IF 
• kO F 
81 kF 


e 


/ 


: 


]-l + 2~ 59 n ± 


8 


LO 18L 








-1 + 2" 59 (d.^10) 


9 


32 kL 








loop if d. < 10 (digit, not sign) 
Ijstore sign of the next number 


kO 2F 




10 


89 IF 
Lk F 
50 20L 






. 2 - 39 n 


11 
12 


LO 20L 
66 20L 
10 IF 
SJ F 






Absolute value of the fraction is 
2 -»(n . 1 kP + ^ ID") . , 1 n 


a-^iio ) '* 2 10* 


13 


kO F 
LI F 






~]store positively in 
negatively in 1 


14 


kO IF 










L5 (0 or 3 


-)p 


>y 2J 


_j choose or 1 depending on previous sign 


15 


40 (n)F 


by 


/,l6« 


• 




L5 15L 




■ 


store in sequence, and increase 


* 


IA L 






the address of the store instruction 


i 

j 17 


k6 15L 
L5 2F 






_by one 
-1 + (s-10) 2~ 59 


1 


22 2L 


—J 


loop 



N13 



LOCATION; 
18 

19 
20 



ORDER 

80 F 
00 10F 



80 F 
00 2F 



00 F 
00 S3 



NOTES 



-1 + 10,2 



-39 



-1 + 2.2 



rl ,~m 



-39 ' 



(f i<n • 2 



-39 
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